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MINMON - TD8E DECTAPE MINIMONITOR 

DECUS Program Library Write-up DECUS NO. 8-644 

SECTION A 
Setting up the System 


0. Introduction 

Use of the TD8E Minimonitor is described in the companion ’Users Manual'. 
These notes describe how to bootstrap the system onto DECtape, how to use some 
auxiliary functions provided on the minimonitor system tape, how core images 
are organised on DECtape by the minimonitor, and how the minimonitor system is 
organised in core. 

You are strongly advised to read the Users Manual before proceeding with the 
write-up, to get some idea of what the minimonitor can do. (See SECTION B) 


1. Getting the system onto DECtape 

It is important to distinguish between binary tapes containing the entire 
minimonitor system, including the DECtape read and write routines, a routine for 
bootstrapping the system onto DECtape, etc., and binary tapes containing just the 
core-resident part of the minimonitor. DECUS supplies a paper tape of the 
complete system. (This tape includes a routine for punching the core-resident 
part alone: see Section 2.) 

To bootstrap the system onto DECtape, load the minimonitor system tape 
using the normal BIN loader procedure. (It is imperative that the BIN loader 
is used, because the minimonitor system writes the top page of core onto DECtape 
and uses this subsequently for loading programs from the teletype.) Next, mount 
a formatted DECtape on TD8E Drive 0, put the switches to REMOTE and WRITE ENABLE, 
and start the minimonitor system at location 7000. This will cause the program 
to move the BIN loader to another part of core, move the minimonitor command 
decoder and read routine to the top page of core, and write the first 37 core 
pages onto the first few blocks of DECtape (minimonitor core image 0). The 
program exits to the minimonitor command decoder, which responds with a ^ . 

(See the Users Manual.) 











Punching tapes of the core-resident part of the roinimonitor 

Users of the rainimonitor system normally need a BIN paper tape of the 
core-resident part only, and not the full system tape issued to you by DECUS. 
Such a tape can be punched after the system has been written to DECtape by 
stopping the computer and starting it at location 1000, with the SR set to 0. 
Further tapes can be punched at any time by using the minimonitor to read back 
core image 0, and starting the computer at location 1000 with the SR set to 0. 
If the SR is set to 1 before the computer is started, a paper tape is punched 
in a format suitable for the Bootstrap Loader (DECUS 5/8-27). 


3* Organisation of core images on DECtape 

Becuase the minimonitor is such a small program, it necessarily uses DECtape 
in a very naive manner. 37-page core images (all but the top page of core) are 
stored on 40-block chunks of DECtape, so that co~e image 0 is stored on tape 
blocks 0-36, core image 1 is stored on blocks 40-76, core image 2 on blocks 100- 
136, ..., core image is stored on blocks 2640-2676. Block identification 
characters are in order of ASCII codes, from code 260 (0) to code 335 (j). Thus 
the legal block identifications are: 

0123456789:;< = >?@ABCDEFGHUJKLMN0PQRSTUVWXYZC v O 

The minimonitor ignores checksums from DECtape, and so it is essential to ensure 
that the tape drives are working properly before using the program. 
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SECTION B 


USERS MANUAL 


0. Introduction 

The TD8E Minimonitor enables 4K core images to be stored on DEC tape 
and loaded when required. The monitor comprises: 

a) A command decoder and DECtape read routine, normally occupying 
core locations 7600-7777; 

b) a-modified version of the BIN loader, a 200 word routine capable 
of being executed in any core page; 

c) a DECtape write routine, a 200 word routine capable of being 
executed in any core page. 

The TD8E minimonitor is incompatible with the 0S8 DECtape file structure. 


1. Identification of Core Images 

The minimonitor deals with core images comprising the first 37 pages of core 
(all but locations 7600-7777). It is oblivious to the core bank structure of 
PDP8s with more than 4K. 

Core images are identified by 1-character names: 0-9 and A-Z are normally 
used. Core image 0 is reserved for use by the system. 


2. The Command Decoder 

This has starting address 7600, and identifies itself by printing a 
There are three commands: 

a) R, for read. Followed by a core image name: the appropriate 
core image is read into core. 

b) L, for load. The switch register must be set to the first 
address of a page in core, and the computer halts with AC=7777 
to enable this to be done. Pressing CONTINUE causes the loader 
to be read into the indicated page. 

c) W, for write. The computer halts as for (b), and the DECtape 
write routine is read into the indicated page. 

Any character which is typed in response to the monitor’s will be taken 

as L, R, or W; according to whether its ASCII code is < , =, or > 322. 
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3. The BIN Loader 


Once the loader is in core, it halts to enable bit 0 of the SR to be set 
for low or high speed reader. Loading commences when CONTINUE is pressed. 
After the tape is loaded, the checksum is examined. If it is zero, the 
monitor is entered immediately, and it responds with a ttfc . The machine 
halts with the checksum in the AC if it is nonzero. 


4* The DECtape Write Routine 

When the write routine is in core, it expects a core image name to be 
typed. It then proceeds to write the current core image onto tape, under 
that name. Writing on core image 0 is prohibited. 


5. Loading the Minimonitor, and Restoring the BIN Loader 

The minimonitor is loaded using the BIN loader, as normal. It must 
be executed, starting at 7600, immediately it is loaded - without loading 
other tapes first. 

To get back to the BIN loader, core image 0 should be read, and the computer 
started at location 7777 as usual. 


6. Examples of Use 

Suppose it is wished to load the Editor into core, store it in core image 
6, and return to the BIN loader. 

Load minimonitor using the BIN loader 
Start it at location 7600 

Minimonitor types "it" 

Type L (for load) 

Computer stops with AC=7777 

Set SR to 7000 (Editor does not use locations 7000-7177) 

Press CONTINUE 

Computer stops with AC=7777 

Set Bit 0 of SR to 0; place Editor tape in high-speed reader 
Press CONTINUE. Tape reads in 

Minimonitor types 
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6. Examples of Use cont'd 

Type W (for write) 

Computer stops with AC=7777 
Set SR to 7000; press CONTINUE 
Type 6 (core image 6) 

Ninimonitof writes on DECtape, and then types 
Type R0 (read system block) 

Computer now contains BIN loader, ready to start at 7777. 


To load core image 6 back into core, just load the minimonitor, start it 

at 7600, and type R6 in response to the #. Then press HALT; load address 
200, and start. 
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Appendix : Halt Locations for the Minimonitor 


The minimonitor may halt in any of the following locations. (For Load 
and Write routines, addresses are given relative to the beginning of the 
routine.) 


Address 

AC 

Reason for Halt 

Effect of pressing CONTINUE 

Command decoder and 

read routine: 


7614 

7777 

Set SR to first locn of 
page to accept Load or 
Write routine 

Load or Write routine is 
read into that page 

7644 

0 

DECtape unit 0 not 
selected 

Attempts to read again 

7704 

0 

DECtape in end zone 
going forward 

No effect 

7734 

0 

DECtape timing error 

No effect 

Load routine: 




0003 

check¬ 

sum 

Checksum error on 
loading 

Attempts loading again 

0176 

7777 

Set SR bit 0 to 
select reader 

Loads tape from that reader 

Write routine: 




0004 

0 

Tried to write on 
core image 0 

Exits to command decoder 

0022 

0 

DECtape unit 0 not 
selected, or write 
locked 

Attempts to write again 

0062 

0 

DECtape in end zone 
going forward 

No effect 

0123 

0 

DECtape timing error 

No effect 
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TD8E DECTAPE MINIMONITOR 


6 JULY I 073 


•prw-io 

41 14 

*7000 
/CODE 
XG01 , 

TO BOOTSTRAI 
JUS XMOVE 

7001 

7610 


7610 

•yrtnp 

0210 


0210 

7003 

0160 


160 

7004 

4114 

/ 

/ 

JMS XMOVE 

7006 

n^nn 

% 

600 

7006 

7600 


7600 

70° 7 

n pnn 


pnn 

7010 

<ppr>r> 

/ 

/ . 

CLA 

7011 

.6512 


JMP I .+1 

7012 

0405 


’''RENT 


/ 

/ 


* ' ^ ^ ~ » ' * • 

/MOVE DIM LOADER to LOOS 200-377 


/MOVE MONITOR TO TOP OF CORE 


/EXIT TO '"'RITE' -VIth AC = 0 TO PUT TH 
/COPE IMAGE ONTO SYSTEM AREA OF TAPE 


7013 

4114 

/SYSTEM UP ON TAPE 
XG02, JMS XMOVE 

7014 

0 O O 

600 

7016 

7600 

7600 

200 

7016 

npnn 

7017 

5620 

JMP I .+1 

ynpn 

7600 

XG03 

7655 

5601 

/ 

/ 

*7500 

XG03, JMP I .+1 

7651 

7013 

XG02 


nonn 


51 


on 


051° n n n n 

5511 55 r> 0 


/ 

/ 

*5 

/MOVE BIN LOADER BACK TO TOP OF CORE 
JMP BINMOV 

/ 

/ 

*15 

/ODDS AND ENDS FOR BOOTSTRAP MONITOR 
AUTOO, 

AUT01, 

/ 

/ 

*100 


/EXIT TO MONITOR 


/IF PROGRAM IS STARTED AT 7600, XGQo 
/IR EXECUTED TO BRING MONITOR TO TOP 
/OF CORE 


n 

n 


n/jnn 

41 14 

BINMOV, JMS X 

n ^ 0 ^ 

npnn 

pnn 

215? 

7555 

7655 

5153 

npnn 

pnn 

n ^ n 

5506 

JMP I 

5155 

7777 

7777 


/ 

/ 


/EXIT TO BIN LOADER 
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ci no ci ci 


0106 

41 14 

0107 

0600 

n ^ ^ n 

7600 

0111 

o p no 

0112 

5513 

0113 

7600 


/MOVE MONITOR TO TOP OF COPE—THIS ROUTINE 
/IS USED OY PUNCHED VERSIONS OF THE MONITOR ALO M E 
MONMOV, J # 'S XMOVE 
600 
7600 

poo 


/ 

/ 

/XMOVE 
/SR TO 
/ 

/ 

/ 


JMP I .+1 
7600 


/EXIT TO MONITOR 


MOVE A PIECE OF CORE. FOLLO"' ITH 3 ARGS 
ARG1 = 1ST ADDRESS OF SOURCE AREA 
ARG2 = 1ST ADDRESS OF DESTINATION AREA 


Ap114 

noon 

xuqvE, 

n 


0115 

7240 


CLA 

CM A 

0116 

1514 


TAD 

I XMOVE 

0117 

3010 


DCA 

AUTOO 

0120 

2114 


ISZ 

XMOVE 

0121 

7240 


CLA 

CMA 

0122 

1514 


TAD 

I XMOVE 

0123 

3011 


DCA 

AUT01 

0124 • 

2114 


ISZ 

XMOVE 

0125 

1514 


TAD 

I XMOVE 

0126 

7041 


CIA 


0127 

3136 


DCA 

XMOVEO 

0130 

2114 


ISZ 

XMOVE 

0131 

1410 

XMLOOP, 

TAD 

I AUTOO 

0132 

3411 


DCA 

I AUT01 

0133 

2136 


ISZ 

XMOVEO 

0134 

5131 


JMP 

XMLOOP 

0135 

5514 


JMP 

I XMOVE 

0136 

noon 

w w w 

XMOVEO. 

n 



/ 

/ 


200 5372 

201 7450 

202 5772 

203 7402 

204 5301 


0371 

0372 

0373 

0374 

0375 

0376 

0377 


5201 

7600 

1371 

3300 

7240 

7402 

5301 


*200 

/ 

/MODIFICATIONS TO BIN LOADER, SO THAT IT 


/ 

1 . STARTS AT 

1ST LOCN OF PAGE, AND HALTS TO ENABLE 

/ 

SR OPTIONS TO 

BE SET 

/ 

2. EXITS TO 7600 AFTER CHECKING THAT CHECKSUM IS 0 

BIN1 . 

JMP 3IM3 


BIM2, 

SNA 



JMP I 3IN3 

/EXIT TO MONITOR 


hlt 

/CHECKSUM IS NON-ZERO 

/ 

*371 

31 M3, 

JMP 301 

/RESTART LOADER 

JMP BIN2 

7600 

/(CLA) REPLACE HLT INSTRN IN LOADER 


TAD BIN3-1 

/BY JMP BIN2 


DCA 300 

CLA CMA 

/HLT TO ENA8LE SETTING OF SR 


HLT 

JMP 301 

/LAST INSTRN OF REAL BIN LOADER 
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/ 

SDSS=6771 
SDST=6772 
SDSQ=6773 
SDLC=6774 
SDLD=6775 
SDRC=6776 
SDRD=6777 




/ 




/ 




*400 

* 



/WRITE 

routine 

04° n 

4741 

WRITE 1 

. JMS 1 IACPT 

0401 

1362 


TAD V/V260 

0402 

7440 


SZA 

0403 

5206 


JMP .+3 

0404 

7602 


HLT CLA 

0405 

5745 


JMP I ”;"7C0UN 

0406 

^nnp 

V.'REMT, 

pr\np 

0407 

71 10 


CLL PAR 

04 10 

ynnn 


NOP 

0411 

3343 

* 

DCA ’"CLOCK 

0412 

3344 


DC A V'RUFF 

0413 

1361 


TAD ’VI 37 

0414 

3346 


DCA ’7PGCT 

0415 

6774 

’’/START, 

SDL.C 

0416 

6776 


SDRC 

0417 

0354 


AND "'PI00 

0420 

7650 


SO’A CLA 

0421 

5224 


JMP .+3 

0422 

7402 

WSELER, 

HLT 

0423 

5215 


JMP '-'START 

0424 

7232 

WGO, 

CLA CML RTR 

0425 

1351 


TAD ’VP 1000 

0426 

6774 


SDLC 

0427 

4742 


JMS I IRDQUA 

0430 

4742 


JMS I IRDQUA 

0431 

6771 

WSRCI-I, 

SDSS 

0432 

5231 


JMP .-1 

0433 

5776 


SDRC 

0434 

7106 


CLL RTL 

0435 

0352 


AND VP374 

0436 

1254 


TAD ’7Ml 10 

0437 

7450 


SNA 

0440 

5256 


JMP ’VENDZ 

0441 

1357 


TAD WM20 

0442 

7640 


SZA CLA 

0443 

5231 


JMP ",'SRCH 


/TRIED TO '.'.'RITE ON SYSTEM PART 
/EXIT TO MONITOR 

/UNUSED LOCATION 

/PGCT=-37 

/SELECT ERROR, OR ’"RITE LOCK 
/PRESSING CONT GIVES ANOTHER LI 
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0444 

6777 


SDRD 

0445 

7430 


SZL 

0446 

1356 


TAD WP3 

0447 

7040 


CM A 

0450 

1343 


TAD WOLOCK 

0451 

7040 


CM A 

0452 

7450 


SNA 

0453 

5264 


JMP WFOUND 

0454 

7670 

’.YU 110, 

SZL SNA CLA 

0455 

5231 


JMP HSRCH 

0456 

6776 

WENDZ, 

SDRC 

0457 

7106 


CLL RTL 

0460 

7630 


SZL CLA 

0461 

5224 


JMP 17 GO 

0462 

742? 


HLT 

0463 

5262 


JMP .-1 

0464 

7630 

WFOUND, 

SZL CLA 

0465 

5224 


JMP WGG 

0466 

1345 


TAD WWCOUNT 

0467 

3347 


DCA WWORDS 

0470 

6771 

WREVGR, 

SDSS 

0471 

5270 


JMP .-1 

0472 

6775. 


SDRC 

0473 

0355 


AND WP77 

0474 

1350 

- 

TAD WU32 

0475 

7640 


SZA CLA 

0476 

5270 


JMP wrevGR 

0477 

6776 

WRITER, 

SDRC 

ngnn 

0353 


AND WP300 

0501 

7640 


SZA CLA 

0502 

5222 


JMP WSELER 

0503 

4742 


JMS I IRDQUA 

0504 

72 nn 


CLA 

0505 

1350 


TAD V/P1400 

0506 

6774 


SDLC 

0507 

7240 

% 

CLA CMA 

0510 

4333 


JMS WRQUAD 

0511 

1744 

WRLP , 

TAD I WBUFF 

0512 

4333 


JMS WRQUAD 

0513 

2344 


ISZ WBUFF 

0514 

7 n n n 


NOP 

0515 

2347 


ISZ "'WORDS 

0516 

5311 


JMP WRLP 

0517 

6773 


SDSQ 

nc^pn 

5317 


JMP .-1 

0521 

6772 


SDST 

0522 

5325 


JMP .+3 

0523 

7402 


HLT 

0524 

5323 


JMP .-1 

0525 

7320 


CLA CLL CML 

0526 

2343 


ISZ slock 

0527 

2345 


ISZ WP3CT 

0530 

5224 


JMP WG0 

0531 

5774 


SDLC 

0532 

5745 


JMP I WWCOUNT 


/IN ENDZONE GOING FORWARD 
/A REAL STOPPER 


/SELECT ERROR OR WRITE LOCK 


/WAIT FOR LAST DATA WORD 
/TO BE WRITTEN 


/TIMING ERROR 
/A REAL STOPPER 
/FORCES MOTION FORWARD 
/NEXT BLOCK TO TRANSFER 
/DONE YET ? 

/NO 

/YES. STOP UNIT 
/GET OUT 
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< k 

0533 

noon 

0534 

6773 

0535 

5334 

0536 

6775 

0537 

ypnn 

0540 

5733 

0541 

7751 

0542 

7744 

0543 

n non 

0544 

o o no 

0545 

7600 

0546 

n non 

0547 

nnnn 

~ -550 

1 d00 

V 0551 

<|nnn 

0552 

0374 

0553 

ngnn 

0554 

0100 

0555 

nn 77 

0556 

nnng 

0557 

7760 

0560 

7746 

OSS 1 

7741 

0562 

7520 


/ 


WRQtJAD, 

n 

SDSD 

JMP .-1 

SOLD 

CLA 

JMP I V/RQUAD 

/ 

/ 

IACPT, 

ACPT+7000 

IPDOUA, 

RDQUAD+7000 

WBL0CK. 

n 

W3UFF. 

n 

’•.''.'/COUNT 

,7600 

V'PGCT, 

n 

WV/0RDS. 

n 

*»<p 1400 

1 400 

p ^ n n n 

nnn 

•VP 374, 

374 

WP300, 


•VP 100, 

100 

WP77, 

77 

V/P3, 

3 

17M20. 

-20 

"'M32, 

-32 

"'M37, 

-37 

WM2S0, 

-260 

/ 

/ 

/ 

SDSS=6771 


SDST=6772 
S0SQ=6773 
SDLC=6774 
SDLD-6775 
SDRC=S776 
SDR D=6777 
/ 


*6 00 


0600 

7300 

BEGIN, 

CLA 

CLL 


0601 

1370 


TAD 

P243 


0602 

5044 


TPC 



0603 

4351 

% 

JMS 

ACPT 

/COUGH 

0604 

1376 


TAD 

"1322 

/LOAD, READ. 

0605 

7450 


SNA 



0606 

5224 


JMP 

READ 1 

/R FOR READ 

0607 

'j rpnn 


SNA 

CLA 


0610 

7101 

WRITE, 

IAC 

CLL 

/>R = W. FOP 


? 
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611 7201 LOAD, IAC 

612 3350 


0613 

7240 

0614 

7402 

0615 

7604 

0616 

0364 

0617 

3361 

0620 

1361 

0621 

3357 

0622 

7040 

0623 

5236 


0627 

71 10 

0630 

ynr\n 

0631 

3360 

0632 

3361 

0633 

1364 

0634 

3357 

0636 

1374 


OCA BLOCK 
CLA CMA 
HLT 
LAS 

AMD '•'•'COUNT 
DCA BUFF 
TAD BUFF 
DCA LEAVE 
CM A 

JMP START-1 
JMS ACPT 
TAD M260 
7 n °2 
CLL RAR 
NOP 

DCA BLOCK 
DCA BUFF 
TAD WCOUNT 
DCA LEAVE 
TAD M37 


0624 4351 READ 1 

0625 1375 

0626 7002 


0636 

0637 

0640 

0641 

0642 

0643 

0644 

0S45 

0645 

0647 

0660 

0651 

0652 


3362 

6774 

6776 

0377 

7650 

5246 

7402 

5237 

7232 

1356 

6774 

4344 

4344 


START, 


GO,. 


DCA PGCT 

SDLC 

SDRC 

AND PI00 
SNA CLA 
JMP GO 
HLT 

JMP START 
CLA CML RTR 
TAD P1000 
SDLC 

JMS RDQUAD 


0653 

6771 SRCH, 

SDSS 

0654 

5253 

JMP .-1 

0655 

6776 

SDRC 

0656 

7106 

CLL RTL 

0657 

0367 

AND P374 

0650 

1276 

TAD Ml 10 

0661 

7450 

SNA 

0652 

5300 

JMP ENDZ 

0663 

1372 

TAD M20 

0664 

7640 

SZA CLA 

0665 

5253 

JMP SRCH 

0666 

6777 

SDRD 

0667 

7430 

SZL 


/<R = L, FOR LOAD 

/"'AIT WITH AC= — 1 FOR S 
/GET SA OF FREE CORE P 


/PREPARE SA FOR EXIT 
/PGCT =—1 

/get dump number 

/STRIP IT 

/BSW. MULTIPLY IT BY 40 
/GET BLOCK NUMBER 
/UNUSED LOCATION 


/SET EXIT ADDRESS TO 7600 
/PGCT=—37 

/TRY TO SELECT UNIT 0 


/LINK STILL SET FOR DIRN 
/SELECT ERROR 

/'CONTINUE' GIVES ANOTHER LIFE 
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0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

n^nn 

0721 

o po p 

0703 

0704 

0705 

0706 

<->707 
07 1 n 

0711 


1371 

7040 

1360 

7040 

7450 

5306 

7670 

5253 

5776 

7105 

7630 

5246 

7402 

5304 

7630 

5246 

1364 

3363 


M110 , 

EMDZ. 


FOUND, 


TAD P3 
CM A 

TAD BLOCK 

CM A 

SNA 

JMP FOUND 
SZL SNA CLA 
JMP SRCH 
SDRC 
CLL PTL 
SZL CLA 
JMP GO 
HLT 

JMP .-1 
SZL CLA 
JMP GO 
TAD ',7COUNT 
DCA ’VORDS 


0712 

6771 

REVGRD 

, SDSS 

0713 

5312 


JMP .-1 

0714 

6776 


SDRC 

0715 

0327 


AND P77 

0716 

1373 


TAD M32 

0717 

7640 


SZA CLA 

0720 

5312 


JMP REVGRD 

0721 

4344 

READ, 

JMS RDQUAD 

0722 

4344 


JMS RDQUAD 

0723 

4344 


JMS RDQUAD 

0724 

4344 

RDLP, 

JMS RDQUAD 

0725 

3761 


DCA I BUFF 

0726 

2361 


ISZ 3UFF 

0727 

° ° *7 r? 

P77, 

77 

0730 

2353 


ISZ ’VORDS 

0731 

5324 


JMP RDLP 

0732 

6772 


SDST 

0733 

5335 


JMP .+3 

0734 

7402 


HLT 

0735 

5334 


JMP .-1 

0736 

7120 


CLL CML 

0737 

2360 


ISZ BLOCK 

0740 

2362 


ISZ PGCT 

0741 

5246 


JMP GO 

0742 

6774 


SDLC 

0743 

5757 


JMP I LEAVE 


0744 '">'■>00 

0745 6773 

0746 5346 

0747 6777 

0750 5744 


/ 

RDQUAD, 0 


0751 

0752 

0753 

0754 

0755 

0755 


o r» n n 

6031 
5352 
6035 
6044 
575 1 


/ 

ACPT, 


sdsq 

JMP .-1 

SDRD 

JMP I RDQUAD 


KSF 

JMP .-1 

KRB 

TPC 

JMP I ACPT 


/IN ENDZOME GOING FORWARD 
/A REAL STOPPER 


/TIMING ERROR 
/A REAL STOPPER 
/FORCES MOTION FORWARD 
/NEXT BLOCK TO TRANSFER 
/DONE YET ? 

/NO 

/YES. STOP UNIT 
/GET OUT 


/ECHO 
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/ 


0757 

o n n r> 

LEAVE, 

n 

0760 

noon 

BLOCK, 

n 

0761 

n nnn 

BUFF, 

n 

0762 

n n no 

w ta/ ^ 

PGCT, 

n 

0763 

O O O o 

WORDS, 

o 

0764 

7600 

''/COUNT, 

7620 

0765 

nnnn 


n 

0766 

/| r>nr» 

p^nnn 

1 o nn 

0767 

0374 

P374,* 

374 

n 7 7° 

0243 

P243, 

243 

0771 

nnng 

P3, 

3 

0772 

7760 

M 20 , 

-22 

0773 

7746 

M3 2-, 

-32 

0774 

7741 

M37. 

-37 

0775 

7520 

M260, 

-262 

0776 

7456 

M322, 

/ 

/ 

*777 

-322 

0777 

n /jnn 

P 100 , 

/ 

/ 

n n 


/UNUSED LOCATION 


MQL=7421 
MQA=7501 
ACL = 770 1 

/ROUTINES TO PUNCH 

/bin and bootstrap 
/with sr=o for bin 

/EXITS TO- MONITOR 


^ non 

1001 
1 10°2 

1003 

1004 

1005 


<72 nn 

6046 

760A 

7450 

5264 

1250 


*1000 

PNCH, 


THE MONITOR ALONE IN BOTH 
FORMATS. EMTEP AT *1000 

AND SR = 1 FOR BOOTSTRAP 
AFTER PUNCHING 


CL A 
TLS 
LAS 
SNA 

JMP BINFOR 


1006 

7450 

SNA 

» f\ r» 7 

5211 

JMP 

1010 

5374 

JMP 

1011 

4361 

BSTRAP, JMS 

1012 

4347 

JMS 

1013 

0317 

317 

1014 

0272 

272 

10 15 

0367 

367 

1016 

0127 

127 

1017 

0107 

107 

1020 

0051 

061 

1021 

oocjn 

050 

1022 

0317 

317 

1023 

n <| nj 

102 

1024 

0367 

367 


/PUNCH IN BIN FORMAT IF SR=0 


/PUNCH OUT BOOTSTRAP IF SR =1 

/exit to monitor 

/PUNCH OUT 0 CODE 
/PUNCH FOLLOWING LIST 
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1C25 

0067 

1226 

0067 

1027 

0067 

103C 

0051 

1C31 

2317 

1032 

0172 

1033 

0367 

1C 34 

0054 

1035 

0231 

1036 

0075 

1037 

0106 

1040 

0066 

1041 

0102 

CM 

C) 

r- 

0034 

1043 

nnnj 

g 1044 

0074 

V 1245 

n n n 

1046 

2275 

1047 

nn 7? 

1050 

7777 

1051 

1315 

1052 

3010 

1053 

7100 

1054 

1410 

1055 

4327 

1056 

1010 

1057 

0316 

1060 

7640 

1061 

5753 

1062 

4361 

1063 

5374 


1C 64 



1 C 6 ? 
1 r 2 r ? n 
< C71 

<072 
1C 73 
C74 
<075 


1C76 

1C77 
1 1 C n 
1 1C1 
11C? 
11C3 
1104 
11C5 
11C6 
1 1C7 

me 


3371 
13C2 
4361 
1317 
717C 
4377 
137C 
7 1CC 
4377 
471? 
C 1 C 6 
CC3 1 
471? 

n 4 ^r» n 

1321 
7 1 CC 
4327 
1323 
4351 
5374 


/ 

/ 

BIMFOR 


pp 2 '■><*> 


C67 

C67 

067 

C51 

317 

172 

367 

C54 

231 

275 

1C6 

C66 

1 C 2 

C34 

CC7 

C74 

CC2 

C75 

C77 

-1 

TAD PP577 
DCA AUTOC 
CLL 

TAD I AUTOC 
JUS BINP 
TAD AUTOC 
AND PP777 
SZA CLA 
JMP .-6 
JUS PMANY 
JMP PPEXIT 


, DCA CHKSUM 
TAD PP2CC 
JUS PMANY 
TAD PP76CC 
STL 

JUS BINP 
TAD PPINS 
CLL 

JUS BINP 
JUS I I3PUN 
MONMOV 

XMOVEO-UOUUDV+1 
JUS I IBPUN 
6 CC 
2 ° n 

TAD CHKSUM 
CLL 

JUS BINP 
TAD PP2CC 
JUS PMANY 
JMP PPEXIT 


/PUNCH CONTENTS OF LOCS 600-777 


/DONE YET ? 

/YES. PUNCH C CODE 
/EXIT TO MONITOR 


/PUNCH 2CC CODE 


/PUNCH **7600' 


/PUNCH *JMP MONMOV* 

/punch code to move monitor 


/PUNCH LOCS 6CC-777 
/PUNCH CHECKSUM 


/PUNCH 700 CODE 
/EXIT TO MONITOR 
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/ 

/ 


1111 

1225 

icrlf. 

1112 

1200 

IBP UN , 

1113 

r\ r> ryrp 

PP77, 

1114 

0177 

PP177, 

1115 

0577 

PP 577, 

1116 

0777 

PP777, 

1117 

7600 

PP7600 

1120 

5106 

PPINS, 

1121 

nno r» 

CHKSUM, 

0 


/ 

/ 

/PUNCH 

1122 

nnnn 

PUN. 

1123 

6041 


1124 

5323 


1125 

6046 


1126 

5722 

/ 

/ 

/PUNCH 

1127 

nnnn 

BINP, 

1130 

7421 


1131 

7501 


1 132 

7012 


1133 

7012 


1 134 

7012 


1135 

0314 


1136 

4322 


•1137 

1321 


1140 

3321 

% 

1141 

7701 


1142 

0313 


1143 

4322 


1 144 

1321 


1145 

3321 


1146 

5727 

/ 

/ 

/PUNCH 

1 47 

nnnn 

PLST, 

1150 

< 72 °° 


1151 

1747 


1 152 

7001 


1153 

2347 


1 154 

7450 


1155 

5747 


1156 

1250 


1157 

4322 


1160 

5350 



crlf 

SPUN 

77 

177 

577 

777 

7602 

JMP M0NM0V 


OUT AC 

n 

TSF 

JMP .-1 
TLS 

JMP I PUN 


OUT AC & L IN BINARY 


MOL 

MQA 

RTR 

RTR 

RTR 

AND PP177 
JMS PUN 
TAD CHKSUM 
OCA CHKSUM 
ACL 

AND PP77 
JMS PUN 
TAD CHKSUM 
DCA CHKSUM 
JMP I BINP 


/MAY BE ADDRESS 


/CAN'T BE ADDRESS 


OUT LIST FOLLOWING JMS. TERMINATED WITH 


CLA 

TAD I PLST 
IAC 

ISZ PLST 
SNA 

JMP I PLST 
TAD PM1 
JMS PUN 
JMP PLST+1 


/RETURN 

/GO GET ANOTHER 
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/ 

/ 




/PUNCH 

OUT AC 222 TIMES 

1161 

o non 

PMANY , 

n 

1162 

7421 


MQL 

1163 

1317 


TAD PP7622 

1164 

3373 


DCA PMANY1 

1165 

7721 


ACL 

1166 

4322 


JMS PUN 

1167 

2373 


ISZ PMANY1 

1173 

5366 


JMP .-2 

1171 

ypnn 


CLA 

1172 

5761 


JMP I PMANY 

1173 

nnnn 

PMAMY1 . 
/ 

/ 

n 



' 

1174 

4711 

PPEXIT, 

JMS I ICRLF 

i 1175 

5717 

/ 

JMP I PP7622 



/ 

* 1222 

— 



/PUNCH 

OUT BLOCK OF CORE IN BIN FORMAT 



/CALL BY ’JMS BPlJN; S T ART ADDRESS: NO. OF LOCNS ' 

1222 

noon 

SPUN, 

n 

1221 

7242 


CLA CMA 

1222 

1622 


TAD I BPUN 

1223 

3212 


DCA AUT02 /CORE POINTER 

1224 

2222 


ISZ BPUN 

1225 

1622 


TAD I BPUN /COUNT 

1226 

2 pnn 


ISZ BPUN 

1227 

7241 


CIA 

1212 

3223 


DCA BPUN1 

1211 

>j o /| r> 


TAD AUT02 /PUNCH INITIAL ADDRESS 

1212 

7221 


IAC 

1213 

7122 


STL 

1214 

4624 


JMS I 13IMP 

'1215 

1412 


TAD I AUT02 /PUNCH OUT NEXT CONTENTS 

1215 

7122 


CLL 

1217 

4624 


JMS I IBINP 

1222 

2223 


ISZ BPlJN 1 

1221 

5215 


JMP .-4 

1222 

5622 


JMP I BPUN 

1223 

noon 

BPUN 1 , 

n 

1224 

1127 

i8 rup, 

BIMP 


17 






/ 

/ 


1225 

n n no 

CRLF, 

n 


1226 

7200 


CLA 


1227 

1241 


TAD 

PP215 

1230 

4640 


JMS 

I CRLF1 

1231 

^pnn 


CLA 


1232 

1242 


TAD 

PP212 

1233 

4640 


JP1S 

I CRLF1 

1234 

<ypr\r\ 


CLA 


1235 

6041 


TSF 


1236 

5235 


Jr IP 

.-1 

1237 

5625 


JMP 

I CRLF 

1240 

1 122 

CRLF1 , 

PUN 


1241 

0215 

PP215, 

215 


1242 

0212 

PP212, 

212 




/ 

/■ 





/WAIT FOR FLAG 
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